home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assemblers / trashm20.lha / Install < prev    next >
Encoding:
Text File  |  1993-12-13  |  3.9 KB  |  142 lines
  1. ;**********************************************************************
  2. ;
  3. ;   Install - TRASH'M-One installation script.
  4. ;
  5. ;   $VER: TRASH'M-One (16.11.93)
  6. ;   $Release: 2.0 $
  7. ;   $Revision: 1.00 $
  8. ;   $Date: 1993/11/16 16:00:00 $
  9. ;
  10. ;**********************************************************************
  11.  
  12. ; Vars
  13. ;   HDMode - TRUE for HD installation, FALSE for Diskette.
  14. ;   DestAppDir - Target directory to install 
  15. ;   SerialNumber - User's serial number as entered into an (askstring)
  16. ;   InstFlags - set of INSTB_ bits to install (HD-only).
  17. ;   KS2.0 - set to TRUE if Kickstart 36 or higher, FALSE otherwise.
  18.  
  19.  
  20. ; --------------------- Defines
  21.  
  22.  
  23. ; user level enum
  24. (set
  25.     USER_Novice  0
  26.     USER_Average 1
  27.     USER_Expert  2
  28. )
  29.  
  30.  
  31. ; set KS2.0 to TRUE if ks version >= 36, FALSE otherwise
  32. (set KS2.0 (>= (shiftright (getversion) 16) 36))
  33.  
  34. ; misc prompts and help (depends on misc text bits above)
  35. (set
  36.     #installsys-desc-fmt (cat
  37.         "Description of %s:\n"
  38.         "%s\n"
  39.     )
  40.     #installsys-prompt-fmt (cat
  41.         "\n\nInstalling \"%s\" to your system disk or partition."
  42.     )
  43.     #intro-text (cat
  44.         "This utility can only be used to install TRASH'M-One on your Hard Disk. "
  45.         "For floppy just copy or use the master diskettes.\n"
  46.     )
  47. )
  48.  
  49.  
  50. ; --------------------- Welcome
  51.  
  52. (if (< (shiftright (getversion "LIBS:version.library") 16) 36)
  53.     (abort "TRASH'M-One requires Workbench Release 2.0 or greater.")
  54. )
  55.  
  56.     ; display welcome text
  57. (set OldLevel (user USER_Expert))
  58. (message
  59.     ; prompt
  60.         "\n"
  61.         "Deftronic presents TRASH'M-One V2.0!\n"
  62.         "\n"
  63.  
  64. )
  65. (user OldLevel)
  66.  
  67.     ; get user level
  68. (welcome)
  69.  
  70.  
  71. ; --------------------- Do installation
  72. ;
  73. ; Performs HD/FD installation and serialization based on HDMode from above
  74.  
  75.     ; set global delete options such that average and expert users
  76.     ; will be prompted for delete protected files.
  77. (delopts "oknodelete" "force" "askuser")
  78.  
  79.     (
  80.         (set DestAppDir
  81.             (tackon
  82.                 (askdir
  83.                     (prompt "In which disk or drawer should the drawer called \"TRASH'M-One\" be created?")
  84.                     (help
  85.                         "    The TRASH'M-One programs and data files will be installed in a new drawer "
  86.                         "called \"TRASH'M-One\".  You are being asked where this new drawer should be created.  "
  87.                         "If you select \"Work:\", for example, then a new drawer named \"Work:TRASH'M-One\" will be created, "
  88.                         "and TRASH'M-One will be installed into this new drawer.\n"
  89.                         "\n"
  90.                         @askdir-help
  91.                     )
  92.                     (default @default-dest)
  93.                 )
  94.                 "TRASH'M-One"
  95.             )
  96.         )
  97.         (makedir DestAppDir (infos))           ; make directory w/o confirmation; we just got permission from above (askdir)
  98.         (set @default-dest DestAppDir)         ; set @default-dest to DestAppDir to cause log file to be put in the right spot.
  99.         (complete 0)
  100.         (copyfiles
  101.              (source "TRASH'M-One:TRASH'M-One")
  102.              (dest DestAppDir)
  103.              (infos)
  104.         )
  105.     (complete 15)
  106.         (copyfiles
  107.              (source "TRASH'M-One:TRASH'M-One.Doc")
  108.              (dest DestAppDir)
  109.              (infos)
  110.         )
  111.     (complete 30)
  112.         (copyfiles
  113.              (source "TRASH'M-One:")
  114.              (dest DestAppDir)
  115.              (choices "ExternAsm")
  116.         )
  117.     (complete 45)
  118.         (copyfiles
  119.              (source "TRASH'M-One:")
  120.              (dest DestAppDir)
  121.              (choices "TransferAsm")
  122.         )
  123.     (complete 60)
  124.         (copyfiles
  125.              (source "TRASH'M-One:C/Minterm")
  126.              (dest DestAppDir)
  127.         )
  128.     (complete 75)
  129.         (copyfiles
  130.              (source "TRASH'M-One:C/CONVFDFILE")
  131.              (dest DestAppDir)
  132.         )
  133.     (complete 90)
  134.         (copyfiles
  135.              (source "TRASH'M-One:")
  136.              (dest "Libs:")
  137.          (choices "Libs")
  138.         )
  139.  
  140.     (complete 100)
  141.     )
  142.